home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CEOM_300.ZIP / CEOM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-10-10  |  10KB  |  679 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  TINTEGER002(2)
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING022
  41.     String   STRING023
  42.     Declare  Procedure PROC001()
  43.     Declare  Procedure PROC002()
  44.     Declare  Procedure PROC003(Integer INTEGER004, Integer INTEGER005)
  45.     Declare  Procedure PROC004()
  46.     Declare  Procedure PROC005(Integer INTEGER003)
  47.     Declare  Procedure PROC006(Boolean BOOLEAN003)
  48.     Declare  Procedure PROC007()
  49.     Declare  Procedure PROC008()
  50.     Declare  Procedure PROC009(String STRING015, String STRING016)
  51.     Declare  Procedure PROC010()
  52.     Declare  Procedure PROC011(String STRING017)
  53.     Declare  Procedure PROC012()
  54.  
  55. ;------------------------------------------------------------------------------
  56.  
  57.     If (AnsiOn()) Goto LABEL001
  58.     DefColor
  59.     Print "[@TIMELEFT@/@TIMELIMIT@]|[#@CURMSGNUM@]|[+/-] (RE)ply : (Enter)=Continue"
  60.     End
  61.     :LABEL001
  62.     STRING002 = TokenStr()
  63.     Tokenize STRING002
  64.     GetToken TINTEGER002(1)
  65.     GetToken TINTEGER002(2)
  66.     BOOLEAN001 = 1
  67.     BOOLEAN002 = 0
  68.     If (InStr(STRING002, "/PLC") <> 0) BOOLEAN002 = 1
  69.     PROC008()
  70.     If (BOOLEAN002) PROC007()
  71.     If (InStr(STRING002, "/NH") <> 0) BOOLEAN001 = 0
  72.     INTEGER001 = 1
  73.     STRING012 = ""
  74.     STRING001 = ""
  75.     StartDisp 1
  76.     KbdChkOn
  77.     PROC001()
  78.     STRING003 = String(GetX())
  79.     DefColor
  80.     While (STRING012 <> Chr(13)) Do
  81.         STRING012 = Inkey()
  82.         If (Abort()) ResetDisp
  83.         If ((Min(Time()) % 20 == 0) && (Sec(Time()) < 2)) PROC004()
  84.         If ((((Upper(STRING012) == " ") || (Upper(STRING012) == "RIGHT")) || (Upper(STRING012) == "UP")) || (Upper(STRING012) == "PGUP")) Then
  85.             If (INTEGER001 == 9) Then
  86.                 PROC003(9, 1)
  87.                 Goto LABEL002
  88.             Endif
  89.             PROC003(INTEGER001, INTEGER001 + 1)
  90.             :LABEL002
  91.             Continue
  92.         Endif
  93.         If (((Upper(STRING012) == "LEFT") || (Upper(STRING012) == "DOWN")) || (Upper(STRING012) == "PGDN")) Then
  94.             If (INTEGER001 == 1) Then
  95.                 PROC003(1, 9)
  96.                 Goto LABEL003
  97.             Endif
  98.             PROC003(INTEGER001, INTEGER001 - 1)
  99.             :LABEL003
  100.             Continue
  101.         Endif
  102.         If (Upper(STRING012) == "C") Then
  103.             If (BOOLEAN001) Goto LABEL004
  104.             PROC003(INTEGER001, 1)
  105.             STRING001 = STRING001 + STRING012
  106.             Goto LABEL005
  107.             :LABEL004
  108.             PROC005(1)
  109.             :LABEL005
  110.             Continue
  111.         Endif
  112.         If (Upper(STRING012) == "D") Then
  113.             If (BOOLEAN001) Goto LABEL006
  114.             PROC003(INTEGER001, 2)
  115.             STRING001 = STRING001 + STRING012
  116.             Goto LABEL007
  117.             :LABEL006
  118.             PROC005(2)
  119.             :LABEL007
  120.             Continue
  121.         Endif
  122.         If (Upper(STRING012) == "J") Then
  123.             If (BOOLEAN001) Goto LABEL008
  124.             PROC003(INTEGER001, 3)
  125.             STRING001 = STRING001 + STRING012
  126.             Goto LABEL009
  127.             :LABEL008
  128.             PROC005(3)
  129.             :LABEL009
  130.             Continue
  131.         Endif
  132.         If (Upper(STRING012) == "K") Then
  133.             If (BOOLEAN001) Goto LABEL010
  134.             PROC003(INTEGER001, 4)
  135.             STRING001 = STRING001 + STRING012
  136.             Goto LABEL011
  137.             :LABEL010
  138.             PROC005(4)
  139.             :LABEL011
  140.             Continue
  141.         Endif
  142.         If (Upper(STRING012) == "N") Then
  143.             If (BOOLEAN001) Goto LABEL012
  144.             PROC003(INTEGER001, 5)
  145.             STRING001 = STRING001 + STRING012
  146.             Goto LABEL013
  147.             :LABEL012
  148.             PROC005(5)
  149.             :LABEL013
  150.             Continue
  151.         Endif
  152.         If (Upper(STRING012) == "Q") Then
  153.             If (BOOLEAN001) Goto LABEL014
  154.             PROC003(INTEGER001, 6)
  155.             STRING001 = STRING001 + STRING012
  156.             Goto LABEL015
  157.             :LABEL014
  158.             PROC005(6)
  159.             :LABEL015
  160.             Continue
  161.         Endif
  162.         If (Upper(STRING012) == "R") Then
  163.             If (BOOLEAN001) Goto LABEL016
  164.             PROC003(INTEGER001, 7)
  165.             STRING001 = STRING001 + STRING012
  166.             Goto LABEL017
  167.             :LABEL016
  168.             PROC005(7)
  169.             :LABEL017
  170.             Continue
  171.         Endif
  172.         If (Upper(STRING012) == "S") Then
  173.             If (BOOLEAN001) Goto LABEL018
  174.             PROC003(INTEGER001, 8)
  175.             STRING001 = STRING001 + STRING012
  176.             Goto LABEL019
  177.             :LABEL018
  178.             PROC005(8)
  179.             :LABEL019
  180.             Continue
  181.         Endif
  182.         If (Upper(STRING012) == "*") Then
  183.             If (BOOLEAN001) Goto LABEL020
  184.             PROC003(INTEGER001, 9)
  185.             STRING001 = STRING001 + STRING012
  186.             Goto LABEL021
  187.             :LABEL020
  188.             PROC005(9)
  189.             :LABEL021
  190.             Continue
  191.         Endif
  192.         If ((Upper(STRING012) == "+") || (Upper(STRING012) == "]")) Then
  193.             PROC005(10)
  194.             Continue
  195.         Endif
  196.         If ((Upper(STRING012) == "-") || (Upper(STRING012) == "[")) Then
  197.             PROC005(11)
  198.             Continue
  199.         Endif
  200.         If (Upper(STRING012) == "I") Then
  201.             PROC004()
  202.             Continue
  203.         Endif
  204.         If ((STRING012 <> Chr(13)) && (STRING012 <> "")) Then
  205.             PROC003(INTEGER001, 9)
  206.             STRING004 = STRING012
  207.             DefColor
  208.             PROC006(1)
  209.         Endif
  210.     EndWhile
  211.     PROC005(INTEGER001)
  212.     End
  213.  
  214. ;------------------------------------------------------------------------------
  215.  
  216.     Procedure PROC005(Integer INTEGER003)
  217.  
  218.     DefColor
  219.     Select Case (INTEGER003)
  220.         Case 1
  221.             Print "Continue"
  222.             Newline
  223.             KbdStuff Chr(13)
  224.         Case 2
  225.             Print "Download"
  226.             Newline
  227.             KbdStuff "D"
  228.         Case 3
  229.             Print "Jump to the Next Conf"
  230.             Newline
  231.             KbdStuff "JUMP"
  232.         Case 4
  233.             Print "Kill Message"
  234.             Newline
  235.             KbdStuff "K"
  236.         Case 5
  237.             Print "No More (Quit)"
  238.             Newline
  239.             KbdStuff "N"
  240.         Case 6
  241.             Print "QuickScan"
  242.             Newline
  243.             KbdStuff "Q"
  244.         Case 8
  245.             Print "Skip (Set LMRP)"
  246.             Newline
  247.             KbdStuff "SKIP"
  248.         Case 10
  249.             PrintLn "Next"
  250.             Newline
  251.             KbdStuff "+"
  252.         Case 11
  253.             PrintLn "Back"
  254.             Newline
  255.             KbdStuff "-"
  256.         Case 9
  257.             PROC006(0)
  258.         Case 7
  259.             Print "Reply to Message"
  260.             Newline
  261.             If (Exist(PPEPath() + "CEOM.RE")) Then
  262.                 PROC010()
  263.                 Goto LABEL022
  264.             Endif
  265.             KbdStuff "RE"
  266.     End Select
  267.     :LABEL022
  268.     PROC002()
  269.  
  270.     EndProc
  271.  
  272.  
  273. ;------------------------------------------------------------------------------
  274.  
  275.     Procedure PROC006(Boolean BOOLEAN003)
  276.  
  277.     If (BOOLEAN003 == 1) Goto LABEL023
  278.     PROC003(INTEGER001, 9)
  279.     DefColor
  280.     STRING004 = ""
  281.     STRING005 = ""
  282.     While (STRING004 <> Chr(13)) Do
  283.         STRING004 = Inkey()
  284.         :LABEL023
  285.         If (Len(STRING001) <> 0) Then
  286.             DefColor
  287.             Print STRING001
  288.             STRING005 = STRING001
  289.             STRING001 = ""
  290.         Endif
  291.         If (InStr(Mask_Ascii(), STRING004) <> 0) Then
  292.             Print STRING004
  293.             STRING005 = STRING005 + STRING004
  294.             Continue
  295.         Endif
  296.         If ((Upper(STRING004) == Chr(8)) || (Upper(STRING004) == Chr(127))) Then
  297.             If (Len(STRING005) <> 0) Then
  298.                 Print Chr(8) + " " + Chr(8)
  299.                 STRING005 = Left(STRING005, Len(STRING005) - 1)
  300.             Endif
  301.             Continue
  302.         Endif
  303.         If (Upper(STRING004) == Chr(27)) Then
  304.             If (Len(STRING005) <> 0) Then
  305.                 Backup Len(STRING005)
  306.                 ClrEol
  307.                 STRING005 = ""
  308.             Endif
  309.         Endif
  310.     EndWhile
  311.     DefColor
  312.     StartDisp 2
  313.     If ((Upper(STRING005) == "H") || (STRING005 == "?")) Then
  314.         Print "Help"
  315.         KbdStuff "HELP"
  316.         PROC002()
  317.     ElseIf (Len(STRING005) <= 0) Then
  318.         Print "Continue"
  319.         Newline
  320.         KbdStuff Chr(13)
  321.     Else
  322.         Newline
  323.         KbdStuff STRING005
  324.         STRING005 = ""
  325.     Endif
  326.     PROC002()
  327.  
  328.     EndProc
  329.  
  330.  
  331. ;------------------------------------------------------------------------------
  332.  
  333.     Procedure PROC002()
  334.  
  335.     DefColor
  336.     StartDisp 2
  337.     End
  338.  
  339.     EndProc
  340.  
  341.  
  342. ;------------------------------------------------------------------------------
  343.  
  344.     Procedure PROC003(Integer INTEGER004, Integer INTEGER005)
  345.  
  346.     Print "A"
  347.     Backup 80
  348.     Select Case (INTEGER004)
  349.         Case 1
  350.             Forward 2
  351.             PROC009("C", "ontinue")
  352.         Case 2
  353.             Forward 13
  354.             PROC009("D", "ownload")
  355.         Case 3
  356.             Forward 24
  357.             PROC009("J", "ump")
  358.         Case 4
  359.             Forward 31
  360.             PROC009("K", "ill")
  361.         Case 5
  362.             Forward 38
  363.             PROC009("N", "o More")
  364.         Case 6
  365.             Forward 48
  366.             PROC009("Q", "Scan")
  367.         Case 7
  368.             Forward 56
  369.             PROC009("R", "eply")
  370.         Case 8
  371.             Forward 64
  372.             PROC009("S", "kip")
  373.         Case 9
  374.             Forward 71
  375.             PROC009("*", "CMD")
  376.     End Select
  377.     Backup 80
  378.     Select Case (INTEGER005)
  379.         Case 1
  380.             Forward 2
  381.             PROC011("Continue")
  382.         Case 2
  383.             Forward 13
  384.             PROC011("Download")
  385.         Case 3
  386.             Forward 24
  387.             PROC011("Jump")
  388.         Case 4
  389.             Forward 31
  390.             PROC011("Kill")
  391.         Case 5
  392.             Forward 38
  393.             PROC011("No More")
  394.         Case 6
  395.             Forward 48
  396.             PROC011("QScan")
  397.         Case 7
  398.             Forward 56
  399.             PROC011("Reply")
  400.         Case 8
  401.             Forward 64
  402.             PROC011("Skip")
  403.         Case 9
  404.             Forward 71
  405.             PROC011("*CMD")
  406.     End Select
  407.     INTEGER001 = INTEGER005
  408.     Backup 80
  409.     Print "B"
  410.     Forward STRING003 - 1
  411.  
  412.     EndProc
  413.  
  414.  
  415. ;------------------------------------------------------------------------------
  416.  
  417.     Procedure PROC008()
  418.  
  419.     If ((TINTEGER002(1) >= 1) && (TINTEGER002(1) <= 6)) Then
  420.         If (TINTEGER002(2) == 2) Then
  421.             STRING006 = "@X" + String(I2S(TINTEGER002(1) + 8, 16)) + "F"
  422.             STRING011 = "@X0" + String(TINTEGER002(1))
  423.             STRING009 = "@X" + String(I2S(TINTEGER002(1), 16)) + String(I2S(TINTEGER002(1) + 8, 16))
  424.             STRING010 = "@X" + String(I2S(TINTEGER002(1), 16)) + "F"
  425.         Else
  426.             STRING006 = "@X" + String(I2S(TINTEGER002(1), 16)) + "F"
  427.         Endif
  428.         STRING008 = "@X0" + String(TINTEGER002(1))
  429.         STRING007 = "@X0" + String(I2S(TINTEGER002(1) + 8, 16))
  430.     Else
  431.         If (TINTEGER002(2) == 2) Then
  432.             STRING006 = "@XF0"
  433.             STRING009 = "@X78"
  434.             STRING010 = "@X7F"
  435.             STRING007 = "@X08"
  436.             STRING011 = "@X07"
  437.         Else
  438.             STRING006 = "@X7F"
  439.             STRING007 = "@X07"
  440.         Endif
  441.         STRING008 = "@X08"
  442.     Endif
  443.  
  444.     EndProc
  445.  
  446.  
  447. ;------------------------------------------------------------------------------
  448.  
  449.     Procedure PROC004()
  450.  
  451.     String   STRING013
  452.     String   STRING014
  453.  
  454.     STRING013 = Chr(67) + Chr(69) + Chr(79) + Chr(77)
  455.     STRING014 = Chr(118) + Chr(51) + Chr(46) + Chr(48) + Chr(48)
  456.     Print STRING008 + Space(64 - String(STRING003)) + Chr(91) + Chr(77) + Chr(83) + Chr(93) + Space(1) + STRING013 + Space(1) + STRING014
  457.     Backup 79 - STRING003
  458.     DefColor
  459.  
  460.     EndProc
  461.  
  462.  
  463. ;------------------------------------------------------------------------------
  464.  
  465.     Procedure PROC009(String STRING015, String STRING016)
  466.  
  467.     If (TINTEGER002(2) == 2) Then
  468.         Forward 1
  469.         Print STRING010 + STRING015 + STRING009 + STRING016
  470.     Else
  471.         Print "@X0F" + " " + STRING015 + STRING007 + STRING016 + " "
  472.     Endif
  473.  
  474.     EndProc
  475.  
  476.  
  477. ;------------------------------------------------------------------------------
  478.  
  479.     Procedure PROC011(String STRING017)
  480.  
  481.     If (TINTEGER002(2) == 2) Then
  482.         Forward 1
  483.         Print STRING006 + Upper(STRING017)
  484.     Else
  485.         Print STRING006 + " " + STRING017 + " "
  486.     Endif
  487.  
  488.     EndProc
  489.  
  490.  
  491. ;------------------------------------------------------------------------------
  492.  
  493.     Procedure PROC012()
  494.  
  495.     KbdChkOn
  496.     Print STRING008 + "-- @X0FPaused " + STRING008 + "--"
  497.     While (Inkey() == "") Do
  498.         If (Abort()) ResetDisp
  499.     EndWhile
  500.     Backup 80
  501.     ClrEol
  502.  
  503.     EndProc
  504.  
  505.  
  506. ;------------------------------------------------------------------------------
  507.  
  508.     Procedure PROC007()
  509.  
  510.     String   STRING018
  511.     String   STRING019
  512.  
  513.     GetUser
  514.     STRING018 = String(ScrText(1, 1, 20, 0))
  515.     STRING019 = String(GetY())
  516.     If (OnLocal() && U_Cls) Then
  517.         If (TINTEGER002(2) == 2) Then
  518.             If ((STRING019 > 21) && ((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "Date: ") <> 0))) PROC012()
  519.         Else
  520.             If ((STRING019 > 20) && (((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "From: ") <> 0)) || (InStr(STRING018, "Date: ") <> 0))) PROC012()
  521.         Endif
  522.     ElseIf (U_Cls) Then
  523.         If (TINTEGER002(2) == 2) Then
  524.             If (((U_PageLen == 23) && (STRING019 > 22)) && ((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "Date: ") <> 0))) Then
  525.                 PROC012()
  526.                 Goto LABEL024
  527.             Endif
  528.             If (((U_PageLen == 24) && (STRING019 > 22)) && ((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "From: ") <> 0))) Then
  529.                 PROC012()
  530.             Endif
  531.             :LABEL024
  532.             Goto LABEL025
  533.         Endif
  534.         If (((U_PageLen == 23) && (STRING019 > 21)) && (((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "From: ") <> 0)) || (InStr(STRING018, "Date: ") <> 0))) Then
  535.             PROC012()
  536.             Goto LABEL025
  537.         Endif
  538.         If (((U_PageLen == 24) && (STRING019 > 22)) && (((InStr(STRING018, "To: ") <> 0) || (InStr(STRING018, "From: ") <> 0)) || (InStr(STRING018, "Date: ") <> 0))) Then
  539.             PROC012()
  540.         Endif
  541.     Endif
  542.     :LABEL025
  543.  
  544.     EndProc
  545.  
  546.  
  547. ;------------------------------------------------------------------------------
  548.  
  549.     Procedure PROC010()
  550.  
  551.     String   STRING020
  552.  
  553.     STRING020 = ReadLine(PPEPath() + "CEOM.RE", 1)
  554.     FClose -1
  555.     STRING020 = ReplaceStr(STRING020, "@NUM@", PCBMac("@CURMSGNUM@"))
  556.     Tokenize STRING020
  557.     Call STRING020
  558.     KbdStuff "/"
  559.  
  560.     EndProc
  561.  
  562.  
  563. ;------------------------------------------------------------------------------
  564.  
  565.     Procedure PROC001()
  566.  
  567.     String   STRING021
  568.  
  569.     If (TINTEGER002(2) == 2) Then
  570.         STRING021 = STRING011 + "▌" + STRING007 + "█" + STRING011 + "▐" + STRING010
  571.         Print STRING007 + "▓█" + STRING011 + "▐" + STRING006 + "CONTINUE" + STRING021 + "D" + STRING009 + "ownload" + STRING021 + "J" + STRING009 + "ump" + STRING021 + "K" + STRING009 + "ill" + STRING021 + "N" + STRING009 + "o More" + STRING021 + "Q" + STRING009 + "Scan" + STRING021 + "R" + STRING009 + "eply" + STRING021 + "S" + STRING009 + "kip" + STRING021 + "*" + STRING009 + "CMD" + STRING011
  572.         PrintLn "▌" + STRING007 + "█▓"
  573.         PrintLn STRING008 + "═══════════════════════════════════════════════════════════════════════════════"
  574.         Print STRING008 + "[@X0F@TIMELEFT@" + STRING008 + "/@X0F@TIMELIMIT@" + STRING008 + "]|[" + STRING007 + "#@X0F@CURMSGNUM@" + STRING008 + "]|[@X0F+" + STRING008 + "/@X0F-" + STRING008 + "]@X0F End of Message" + STRING008 + ": "
  575.     Else
  576.         STRING021 = STRING007 + "│ " + "@X0F"
  577.         PrintLn "@X0F╒╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╤╕"
  578.         PrintLn STRING007 + "├┤" + STRING006 + " Continue " + STRING021 + "D" + STRING007 + "ownload " + STRING021 + "J" + STRING007 + "ump " + STRING021 + "K" + STRING007 + "ill " + STRING021 + "N" + STRING007 + "o More " + STRING021 + "Q" + STRING007 + "Scan " + STRING021 + "R" + STRING007 + "eply " + STRING021 + "S" + STRING007 + "kip " + STRING021 + "*" + STRING007 + "CMD " + STRING007 + "├┤"
  579.         PrintLn STRING008 + "╞╪╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╧╛"
  580.         Print STRING008 + "└┴ [@X0F@TIMELEFT@" + STRING008 + "/@X0F@TIMELIMIT@" + STRING008 + "]|[" + STRING007 + "#@X0F@CURMSGNUM@" + STRING008 + "]|[@X0F+" + STRING008 + "/@X0F-" + STRING008 + "]@X0F End of Message" + STRING008 + ": "
  581.     Endif
  582.  
  583.     EndProc
  584.  
  585.     STRING022 = "If you have suggestions or requests for permanent or optional features,"
  586.     STRING023 = "please send mail to <mslasher@io.org>.  - Rob Hunter / CEOM (c)1993-94 "
  587.  
  588. ;------------------------------------------------------------------------------
  589. ;
  590. ; Usage report (before postprocessing)
  591. ;
  592. ; ■ Statements used :
  593. ;
  594. ;    3       End
  595. ;    2       ClrEol
  596. ;    154     Goto 
  597. ;    55      Let 
  598. ;    25      Print 
  599. ;    7       PrintLn 
  600. ;    91      If 
  601. ;    1       FClose 
  602. ;    2       ResetDisp
  603. ;    3       StartDisp 
  604. ;    1       GetUser
  605. ;    9       DefColor
  606. ;    12      Newline
  607. ;    2       Tokenize 
  608. ;    2       GetToken 
  609. ;    14      KbdStuff 
  610. ;    1       Call 
  611. ;    2       KbdChkOn
  612. ;    6       Backup 
  613. ;    21      Forward 
  614. ;    12      EndProc
  615. ;
  616. ;
  617. ; ■ Functions used :
  618. ;
  619. ;    1       -
  620. ;    1       %
  621. ;    177     +
  622. ;    5       -
  623. ;    71      ==
  624. ;    25      <>
  625. ;    1       <
  626. ;    2       <=
  627. ;    6       >
  628. ;    1       >=
  629. ;    82      !
  630. ;    14      &&
  631. ;    18      ||
  632. ;    6       Len(
  633. ;    26      Upper()
  634. ;    1       Left()
  635. ;    3       Space()
  636. ;    23      Chr()
  637. ;    18      InStr()
  638. ;    2       Abort()
  639. ;    2       Time()
  640. ;    1       Min()
  641. ;    1       Sec()
  642. ;    3       Inkey()
  643. ;    12      String()
  644. ;    1       Mask_Ascii()
  645. ;    2       PPEPath()
  646. ;    1       ReadLine()
  647. ;    1       OnLocal()
  648. ;    1       Exist()
  649. ;    6       I2S()
  650. ;    1       TokenStr()
  651. ;    1       AnsiOn()
  652. ;    1       GetX()
  653. ;    1       GetY()
  654. ;    1       ScrText()
  655. ;    1       ReplaceStr()
  656. ;    1       PCBMac()
  657. ;
  658. ;------------------------------------------------------------------------------
  659. ;
  660. ; Analysis flags : C
  661. ;
  662. ; C - Call child PPE ■ 3
  663. ;     This is usually normal, but may be a tricky way to launch some
  664. ;     sysop-only commands.
  665. ;     ■ Search for : CALL
  666. ;
  667. ;------------------------------------------------------------------------------
  668. ;
  669. ; Postprocessing report
  670. ;
  671. ;    0       For/Next
  672. ;    3       While/EndWhile
  673. ;    40      If/Then or If/Then/Else
  674. ;    3       Select Case
  675. ;
  676. ;------------------------------------------------------------------------------
  677. ;                 AEGiS Corp - Break the routines, code against the machines!
  678. ;------------------------------------------------------------------------------
  679.